R/w_arregla shapes.R

In pelishk/upax_library: Librería de análisis

#' función para arreglar polígonos
#'
#' Asigna la proyección correcta a un shape y agrega las coordenadas de los centroides
#'
#' @param poligonos spatialpolygondataframe - el archivo de polígonos que se quiere arreglar
#'
#' @return Un archivo del mismo tipo con la proyección correcta y las columnas de longitud y latitud en los datos.



w_arregla_shapes <- function(poligonos){
  poligonos <- spTransform(poligonos,CRS("+proj=longlat +datum=WGS84"))
  coordenadas <- coordinates(poligonos)
  poligonos@data <- cbind(poligonos@data,coordenadas)
  names(poligonos@data) <-c(names(poligonos@data)[1:(length(poligonos@data)-2)],'lon','lat')
  return(poligonos)
}